home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbifile / fbifile.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  7.6 KB  |  246 lines
  1. VERSION 2.00
  2. Begin Form Fbifile 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "FBI File"
  5.    ClientHeight    =   3675
  6.    ClientLeft      =   1080
  7.    ClientTop       =   2235
  8.    ClientWidth     =   7335
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "Futura Md BT"
  12.    FontSize        =   12
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   4365
  16.    Left            =   1020
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   3675
  20.    ScaleWidth      =   7335
  21.    Top             =   1605
  22.    Width           =   7455
  23.    Begin CommandButton BTN_View 
  24.       Caption         =   "View Profile"
  25.       Height          =   495
  26.       Left            =   2520
  27.       TabIndex        =   0
  28.       Top             =   3120
  29.       Width           =   1935
  30.    End
  31.    Begin Menu MNU_File 
  32.       Caption         =   "&File"
  33.       Begin Menu MNU_New 
  34.          Caption         =   "&New Profile"
  35.       End
  36.       Begin Menu MNU_Exit 
  37.          Caption         =   "E&xit"
  38.       End
  39.    End
  40.    Begin Menu MNU_About 
  41.       Caption         =   "&About"
  42.    End
  43. Sub AliasData ()
  44.     Cls
  45.     Print : Print
  46.     Print UCase$("aliases:")
  47.     Print
  48.     Print Tab(10); "Three-Finger "; nickname.nickname1.Text
  49.     Print
  50.     Print Tab(10); nickname.nickname2.Text; " the Knife"
  51. End Sub
  52. Sub BackGroundData ()
  53.     Cls
  54.     Randomize: Randnum& = (Rnd(0) * 45000) + (Rnd(0) * 21000)
  55.     casenum$ = Str$(Randnum&)
  56.     Print Tab(15); UCase$("fbi official dossier")
  57.     Print Tab(12); UCase$("undesirable file") + " # " + casenum$
  58.     Print
  59.     Print UCase$("Subject:")
  60.     Print Tab(10); background.username.Text
  61.     Print
  62.     Print UCase$("Last seen at:")
  63.     Print Tab(10); background.street.Text
  64.     Print Tab(10); background.city.Text
  65.     Print Tab(10); background.state.Text
  66.     BTN_View.Caption = "More..."
  67. End Sub
  68. Sub BTN_View_Click ()
  69.     counter = counter + 1
  70.     printprofile
  71. End Sub
  72. Sub CloseFileData ()
  73.     Cls
  74.     Print : Print : Print : Print
  75.     Print Tab(10); "FBI File Closed"
  76.     BTN_View.Caption = "Close File"
  77. End Sub
  78. Sub Form_Load ()
  79.     windowstate = 0
  80.     BTN_View.Visible = 0
  81. End Sub
  82. Sub GangData ()
  83.     Cls
  84.     Print : Print
  85.     Print UCase$("gang members:")
  86.     Print
  87.     Print Tab(10); friends.Friend1.Text; " the Dip"
  88.     Print Tab(10); "Killer "; friends.Friend2.Text
  89.     Print Tab(10); "Brass Knuckles "; friends.Friend3.Text
  90.     Print Tab(10); friends.Father.Text; " the Fence"
  91.     Print Tab(10); "Gun Moll "; friends.Mother.Text
  92. End Sub
  93. Sub HangoutData ()
  94.     Cls
  95.     Print : Print
  96.     Print UCase$("hangout:")
  97.     Print
  98.     Print Tab(10); employment.Work.Text
  99. End Sub
  100. Sub mafiadata ()
  101.     Cls
  102.     Print
  103.     Print
  104.     Print UCase$("mafia contacts:")
  105.     Print
  106.     Print Tab(10); "don "; employment.Bossname.Text
  107.     Print
  108.     Print Tab(10); "capo "; employment.Coworker.Text
  109. End Sub
  110. Sub MNU_About_Click ()
  111.     'This plays the WAV:
  112.     i% = sndplaysound("intro.wav", 1)
  113.     'The flags work as follows:
  114.     '0 - wait until sound finishes before returning
  115.     '1 - return immediately - sound can be stopped with
  116.     '    i% =sndplaysound(0&, 0)
  117.     '2 - play no default if it can't find the WAV
  118.     '4 - play sound over and over, must be combined with 1 by calling the flag
  119.     '    i% =sndplaysound(snd_async or snd_loop, 0)
  120.     '    it can also be stopped with (0%,0)
  121.     '5 - returns false immediately if sound is already playing.
  122.     about1$ = "            FBI Profile" + Chr$(13)
  123.     about2$ = "    Written by Mike Davis" + Chr$(13)
  124.     about3$ = "          FREEWARE" + Chr$(13)
  125.     about4$ = "    Do with as you will" + Chr$(13)
  126.     about5$ = "America Online: MikeD48" + Chr$(13) + Chr$(13)
  127.     MsgBox about1$ + about2$ + about5$ + about3$ + about4$, 0, "FreeWare Notice"
  128. End Sub
  129. Sub MNU_Exit_Click ()
  130.     End
  131. End Sub
  132. Sub MNU_New_Click ()
  133.     Cls 'Clear the screen
  134.     background.Show      'display the background form and
  135.     background.SetFocus  'give it the focus
  136. End Sub
  137. Sub PersProfData ()
  138.     Cls
  139.     Print : Print : Print
  140.     Print Tab(10); "Personal Profile on:": Print
  141.     Print Tab(13); background.username.Text
  142. End Sub
  143. Sub printprofile ()
  144.     Select Case counter
  145.         Case 1
  146.             BackGroundData
  147.         Case 2
  148.             AliasData
  149.         Case 3
  150.             HangoutData
  151.         Case 4
  152.             GangData
  153.         Case 5
  154.             mafiadata
  155.         Case 6
  156.             PersProfData
  157.         Case 7
  158.             Profile1Data
  159.         Case 8
  160.             Profile2Data
  161.         Case 9
  162.             Profile3Data
  163.         Case 10
  164.             Profile4Data
  165.         Case 11
  166.             Profile5Data
  167.         Case 12
  168.             Profile6Data
  169.         Case 13
  170.             CloseFileData
  171.         Case 14
  172.             BTN_View.Visible = 0
  173.             Cls
  174.     End Select
  175. End Sub
  176. Sub Profile1Data ()
  177.     Cls
  178.     Print : Print
  179.     Print Tab(10); background.username.Text; " is considered to be ";
  180.     Print Tab(10); "extremely dangerous."
  181.     Print
  182.     Print Tab(10); "Approach with Caution..."
  183.     Print
  184.     Print Tab(10); background.username.Text; " has been known to hide"
  185.     Print Tab(10); "lethal weapons in ";
  186.     Print preferences.food.Text; "."
  187. End Sub
  188. Sub Profile2Data ()
  189.     Cls
  190.     Print : Print
  191.     Print Tab(10); background.username.Text; " had been the muscle "
  192.     Print Tab(10); "behind "; employment.Coworker.Text; "'s bookie and "
  193.     Print Tab(10); "loan sharking operation in "; background.city.Text
  194.     Print Tab(10); "during the late 70's."
  195. End Sub
  196. Sub Profile3Data ()
  197.     Cls
  198.     Print
  199.     Print Tab(10); "As a dilligent enforcement agent"
  200.     Print Tab(10); "in organized crime,"
  201.     Print Tab(10); background.username.Text; " was known to"
  202.     Print Tab(10); "cut off a client's "; preferences.body.Text
  203.     Print Tab(10); "for non-payment of a loan."
  204.     Print
  205.     Print Tab(10); background.username.Text; " was also suspected of"
  206.     Print Tab(10); "force feeding "; preferences.fruit.Text; " to"
  207.     Print Tab(10); "someone because he was wearing "; preferences.color.Text;
  208.     Print " pants."
  209. End Sub
  210. Sub Profile4Data ()
  211.     Cls
  212.     Print
  213.     Print Tab(10); "Currently, "; background.username.Text; " is a"
  214.     Print Tab(10); "member of "; employment.Bossname.Text; "'s crime "
  215.     Print Tab(10); "family in east "; background.state.Text; "."
  216.     Print Tab(10); background.username.Text; " is suspected of "
  217.     Print Tab(10); "attempted hits and mayhem on"
  218.     Print Tab(10); preferences.actor.Text; " and "; preferences.singer.Text; "."
  219.     Print Tab(10); background.username.Text; " is also a suspect in"
  220.     Print Tab(10); "threatening the cast of "; preferences.tvshow.Text
  221.     Print Tab(10); "with bodily harm."
  222. End Sub
  223. Sub Profile5Data ()
  224.     Cls
  225.     Print : Print
  226.     Print Tab(10); background.username.Text; " managed to escape"
  227.     Print Tab(10); "prosecution all these years"
  228.     Print Tab(10); "because of the brilliant law firm of"
  229.     Print Tab(10); misc.pres1.Text; ", "; misc.pres2.Text; " and "; misc.pres3.Text; ","
  230.     Print Tab(10); "retained by don "; employment.Bossname.Text; "'s"
  231.     Print Tab(10); "national crime family."
  232. End Sub
  233. Sub Profile6Data ()
  234.     Cls
  235.     Print : Print
  236.     Print UCase$("indictments:")
  237.     Print
  238.     Print Tab(10); "1 count of "; misc.hobby2.Text; " without a permit"
  239.     Print Tab(10); "2 counts of felonious "; misc.hobby1.Text
  240.     Print Tab(10); "3 counts of 3rd degree "; misc.hobby3.Text
  241.     Print
  242.     Print UCase$("convictions:")
  243.     Print
  244.     Print Tab(10); UCase$("none")
  245. End Sub
  246.